Calculatrices Casio Graphiques : Jeux, programmes, cours, pompes, astuces et programmation sur calculatrice graphique Casio et ClassPad 300 : programmes casio et jeux casio...

ClrText
1A
7B
Int 5Ran#X
X1Goto X
Lbl A
A>1Locate 1,A-1," "
B<7Locate 1,B+1," "
Locate 7,A,"F
Locate 11,A,"G
Locate 15,A,"T"
A+1A
Locate 9,B,"I"
Locate 13,B,"H"
B-1B
B=3Goto B
Goto A
Lbl B
1A
7B
Goto C
Lbl C
A>1Locate 1,A-1," "
B<7Locate 1,B+1," "
Locate 6,A,"xxxxxxxxxxx"
A+1A
Locate 6,B,"xxxxxxxxxxx"
B-1B
B=4Goto D
Goto C
Lbl D
Int 5Ran#+1E
Int (S+E+5)Ran#+1A
Getkey=31Goto E
Goto D
Lbl E
ClrText
Int (10+M)Ran#+1B
Int 99Ran#+1C
Int 5Ran#+1F
Goto F
Lbl F
Locate 1,1,"xxxxxxx FIGHT xxxxxxx"
Locate 1,2,"CARRIES: "
Locate 1,2,"GOLD: "
Locate 1,3,"CARRIES: "
Locate 1,2,"ATTACK: "
Locate 1,3,"GOLD: "
Locate 1,4,"CARRIES: "
Locate 1,2,"SOLDIERS:"
Locate 1,3,"ATTACK: "
Locate 1,4,"GOLD: "
Locate 1,5,"CARRIES: "
Locate 1,2," "
Locate 1,3,"SOLDIERS:"
Locate 1,4,"ATTACK: "
Locate 1,5,"GOLD: "
Locate 1,6,"CARRIES: "
Locate 1,3," "
Locate 1,4,"SOLDIERS:"
Locate 1,5,"ATTACK: "
Locate 1,6,"GOLD: "
Locate 1,7,"CARRIES: "
E=1Locate 10,3,"GYPSIES"
E=2Locate 10,3,"THIEVES"
E=3Locate 10,3,"REBELS"
E=4Locate 10,3,"BANDITS"
E=5Locate 10,3,"KNIGHTS"
Locate 11,4,B
Locate 11,5,A
Locate 11,6,C
F>0Locate 11,7,"NOTHING"
F>09F
F>0Goto G
F=0Int 3Ran#F
F=0Locate 11,7,"SCROLL"
F0Locate 11,7,"WEAPON"
Goto G
Lbl G
Getkey=31Goto H
Goto G
Lbl H
H0Goto P
ClrText
Locate 1,1,"xxxxxxx FIGHT xxxxxxx"
Locate 1,3,"YOU ENEMY"
Locate 1,4,H
Locate 18,4,B
Locate 1,6,"[F1] ATTACK"
Locate 1,7,"[F2] RETREAT"
Goto I
Lbl I
Getkey=79Goto J
Getkey=69Goto R
Goto I
Lbl J
Locate 1,6," "
Locate 1,7," "
Int 5Ran#+1X
Int SRan#+1O
OxXX
Locate 10,5,"KILLED"
Locate 17,5,X
B-XB
B<00B
Locate 18,4," "
Locate 18,4,B
Goto K
Lbl K
Getkey=31Goto L
Goto K
Lbl L
B0Goto N
Int 5Ran#+1X
XxEX
H-XH
H<00H
Locate 1,5," "
Locate 1,5,"KILLED"
Locate 8,5,X
Locate 1,4," "
Locate 1,4,H
Goto M
Lbl M
Getkey=31Goto H
Goto M
Lbl N
ClrText
Locate 1,1,"xxxxxx VICTORY xxxxxx"
Locate 1,3,"ON THE ENEMY YOU FIND"
Locate 1,4,C
Locate 4,4,"GOLD."
C+GG
Goto S
Lbl O
1A
Getkey=31Return
Goto O
Lbl P
ClrText
Locate 1,1,"xxxxxxx R I P xxxxxxx"
Locate 1,2,"YOU ARE DEAD AND YOUR"
Locate 1,3,"KINGDOM IS OVERTAKEN"
Locate 3,4,"BY THE EVIL BLACK"
Locate 8,5,"KNIGHT."
Locate 1,7,"xxx GAME OVER xxx"
Goto Q
Lbl Q
Getkey=31ClrText
Stop
Goto Q
Lbl R
Int 4Ran#A
A=0Locate 1,6," "
A=0Locate 1,7," "
A=0Locate 2,7,"UNABLE TO RETREAT!"
A=0Goto K
A01A
A=1Return
Lbl S
If F9
Then Locate 8,4," AND A"
F=0Locate 1,5,"SCROLL OF STRENGTH."
F=0S+10S
F=1Locate 1,5,"MACE."
F=1S+3S
F=2Locate 1,5,"SWORD."
F=2S+1S
Goto O
IfEnd
If F=9
Then Goto O
IfEnd
Lbl X
Int 15Ran#A
Int 250Ran#+1B
Locate 1,1,"xx T R E A S U R E xx"
Locate 1,3,"YOU FOUND"
A=0 Or A=3Locate 11,3,"A MACE."
A=0 Or A=3S+3S
A=1 Or A=2Locate 11,3,"A SWORD."
A=1 Or A=2S+1S
A=4 Or A=5Locate 11,3,"AN AXE."
A=4 Or A=5S+4S
A=6Locate 11,3,"A SCROLL "
A=6Locate 1,4,"OF STRENGTH."
A=6S+10S
A=7 Or A=8Locate 11,3,"LANCE."
A=7 Or A=8S+2S
A=9Int 25Ran#+1X
A=9Locate 11,3,X
A=9Locate 1,4,"REBELS WHO JOIN YOUR"
A=9Locate 1,5,"ARMY FREE OF CHARGE."
A=9X+MM
A=9X+HH
A>9Locate 11,3,B
A>9B+GG
A>9Locate 15,3,"GOLD."
Goto O